home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 17 / AMIGAplus Sonderheft 17 (1999)(ICP)(DE)[!].iso / Rexx / testport.rexx < prev    next >
OS/2 REXX Batch file  |  1998-06-10  |  564b  |  38 lines
  1. /* Test port */
  2.  
  3. if ~show('p','rexxsupport.library') then call addlib('rexxsupport.library',0,-30,0)
  4.  
  5. address 'EvenMore.1'
  6.  
  7. options results
  8. "GETPATHNAME"; say 'Path='RESULT
  9. "GETFILENAME"; say 'File='RESULT
  10. "GETFULLPATH"; say 'Full path='RESULT
  11. "GETFILESIZE"; say 'Filesize='RESULT
  12. "GETLINE 2";   say 'Line 2='RESULT
  13. "GETFONT";     say 'Font='RESULT
  14.  
  15. "POSWINDOW 2"
  16. delay(50)
  17. "POSWINDOW 1"
  18. delay(50)
  19.  
  20. "SETFONT Xen/8"
  21. delay(50)
  22.  
  23. "APPIFY 1"
  24. delay(50)
  25.  
  26. "OCCURANCE e"
  27. say 'E occurs 'RESULT' times'
  28.  
  29. "CLOSE"
  30. delay(50)
  31.  
  32. "APPIFY 0"
  33. delay(200)
  34.  
  35. "QUIT"
  36.  
  37. exit                
  38.